﻿
Partial Class Pages_login
    Inherits System.Web.UI.Page

    Dim authenticationservice As New Authenticationservice()

    Protected Sub btnLoginSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoginSubmit.Click




        If authenticationservice.Authenticate(txtUserName.Text, txtPassword.Text) Then
            Response.Redirect("~/Pages/Admin/Start.aspx?id=" & ID)
        Else
            litmessage.Text = "Fel användarnamn eller lösenord!"
        End If


    End Sub
End Class
